home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_14_(11-1984).d64 / city patterns (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  430b  |  28 lines
  1. 100 REM CITY PATTERNS
  2. 110 REM BY ERIC OLSON
  3. 120 PRINT"[144][147]";
  4. 130 POKE53280,1:POKE53281,1:L=12
  5. 140 D=INT(4*RND(1))+1
  6. 150 IF D=1 THEN 250
  7. 160 IF D=2 THEN 320
  8. 170 IF D=3 THEN PRINT"";
  9. 180 IF D=4 THEN PRINT"[157]";
  10. 190 IF D=1 THEN PRINT"[162][144]";
  11. 200 IF D=2 THEN PRINT"[158][162][144][146]";
  12. 210 IF D=3 THEN PRINT"[161][144][146]";
  13. 220 IF D=4 THEN PRINT"[161][144]";
  14. 230 PRINT"[157]";
  15. 240 GOTO 140
  16. 250 L=L+1
  17. 260 IF L=24 THEN 290
  18. 270 PRINT"";
  19. 280 GOTO 190
  20. 290 D=2
  21. 300 L=L-1
  22. 310 GOTO 150
  23. 320 L=L-1
  24. 330 IF L<1 THEN L=1
  25. 340 PRINT"[145]";
  26. 350 GOTO 190
  27. 360 END
  28.